home *** CD-ROM | disk | FTP | other *** search
/ Cracking 1 / Cracking I..iso / Tools / Ostatní / aPLib v0.26b / examples / tmt / testapde.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-12-15  |  578 b   |  38 lines
  1.  
  2. uses aplibu;
  3.  
  4. var
  5.   d1,d2:file;
  6.   p1,p2:pointer;
  7.   l1,l2o,l2:longint;
  8.  
  9. begin
  10.   if paramcount<>2 then
  11.     begin
  12.       writeln('TESTAPDE.EXE <aplib> <normal>');
  13.       halt(1);
  14.     end;
  15.  
  16.   assign(d1,paramstr(1));
  17.   reset(d1,1);
  18.   l1:=filesize(d1);
  19.   getmem(p1,l1);
  20.   blockread(d1,p1^,l1);
  21.   close(d1);
  22.  
  23.   l2o:=20*l1; (* ??? *)
  24.   getmem(p2,l2o);
  25.  
  26.   l2:=aP_depack_asm_fast(p1^,p2^);
  27.   (* l2:=ap_depack_asm(p1^,p2^); *)
  28.  
  29.   assign(d2,paramstr(2));
  30.   rewrite(d2,1);
  31.   blockwrite(d2,p2^,l2);
  32.   close(d2);
  33.  
  34.   freemem(p1,l1);
  35.   freemem(p2,l2o);
  36.  
  37. end.
  38.